home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / sector.dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1996-03-22  |  344 b   |  22 lines
  1. on enterFrame
  2.   global dir, sector
  3.   if dir = -1 then
  4.     set sector to sector + 1
  5.   end if
  6.   if dir = 1 then
  7.     set sector to sector - 1
  8.   end if
  9.   if sector = 8 then
  10.     set sector to 1
  11.   end if
  12.   if sector = 0 then
  13.     set sector to 7
  14.   end if
  15. end
  16.  
  17. on exitFrame
  18.   global sector
  19.   set the visible of sprite 8 to 0
  20.   go((sector + 1) * 5)
  21. end
  22.